#tag Class
Protected Class WorkingWindowThread
Inherits Thread
	#tag Event
		Sub Run()
		  workingWin.Show
		  workingWin.ProgressBar1.Value = me.PBvalue
		  workingWin.ProgressBar1.Enabled = true
		  workingWin.ProgressBar1.Refresh
		  workingWin.StaticText2.Text = me.ST
		  workingWin.StaticText2.Refresh
		  workingWin.Refresh
		  
		  while running = 1
		    workingWin.ProgressBar1.Value = me.PBvalue
		    workingWin.ProgressBar1.Refresh
		    workingWin.StaticText2.Text = me.ST
		    workingWin.StaticText2.Refresh
		    workingWin.Refresh
		  wend
		  
		  
		  workingWin.ProgressBar1.Enabled = false
		  workingWin.ProgressBar1.Refresh
		  workingWin.StaticText2.Text = ""
		  workingWin.StaticText2.Refresh
		  workingWin.Refresh
		  workingWin.hide
		  
		End Sub
	#tag EndEvent


	#tag Property, Flags = &h0
		PBvalue As Integer = 0
	#tag EndProperty

	#tag Property, Flags = &h0
		running As Integer = 0
	#tag EndProperty

	#tag Property, Flags = &h0
		ST As String
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			Type="Integer"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			Type="Integer"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			Type="Integer"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Priority"
			Visible=true
			Group="Behavior"
			InitialValue="5"
			Type="Integer"
			InheritedFrom="Thread"
		#tag EndViewProperty
		#tag ViewProperty
			Name="StackSize"
			Visible=true
			Group="Behavior"
			InitialValue="0"
			Type="Integer"
			InheritedFrom="Thread"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass
